% Dim Nsortid,sortname Dim DBC Nsortid = Trim(Request("Nsortid")) Set DBC=Server.createObject("hb1797.main") if DBC.checkIsInt(Nsortid)=false then Nsortid=1 sortname=DBC.gbookGetClassItem(Nsortid,1) %>